home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / NOTE2FRQ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-20  |  287 b   |  20 lines
  1.  
  2.  unit frq;
  3.  
  4.  interface
  5.  
  6.  function note2freq(note:byte):real;
  7.  
  8.  implementation
  9.  
  10.  function note2freq(note:byte):real;
  11.  var
  12.   nr                    : real;
  13.   fr                    : real;
  14.  begin
  15.  nr:=note;
  16.  fr:=440*(exp(((nr-57)/12)*ln(2)));
  17.  note2freq:=fr;
  18.  end;
  19.  
  20.  end.